6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

for (int i=1;i<=n; i++)

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

for (int i=1; i<=n; i++)

nn=min(nn,A[i]);

for (int i=1; i<=n; i++)

if (nn==A[i]) cout<<i<<" ";

return 0;

}

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

phần đọc tự viết

 for i:=j to n do 

 b[i+1]:=a[i];

for i:=1 to j do write(g,a[i]);

write(g,M);

for i:=j+1 to n+1 do 

 write(g,b[i]);

uses crt;

var a,b:array[1..100]of integer;

    i,n,m,k,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

     write('A[',i,']='); readln(a[i]);

  end;

for i:=1 to n do

  write(a[i]:6);

writeln;

write('Nhap m='); readln(m);

write('Nhap chi so k='); readln(k);

for i:=1 to k do

 b[i]:=a[i];

for i:=k+2 to n+1 do

  b[i]:=a[i-1];

b[k+1]:=m;

for i:=1 to n+1 do

  write(b[i]:6);

readln;

end.

Var a:array[1..100] of integer;

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

long long a[10],i,n,t;

int main()

{

n=10;

t=0;

for (i=1; i<=n; i++)

{

cin>>a[i];

if (a[i]>3) t=t+a[i];

}

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

uses crt;

var a:array[1..6]of integer;

i,dem,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to 6 do 

if a[i]>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

readln;

end.

program BaiTapMang;

var
  n, i, max, min, s: longint;
  a: array[1..100] of integer;

begin
  // Nhập số phần tử của mảng
  write('Nhap so phan tu cua mang: ');
  readln(n);

  // Nhập giá trị từng phần tử của mảng
  for i := 1 to n do
  begin
    write('Nhap gia tri phan tu thu ', i, ': ');
    readln(a[i]);
  end;

  // Xuất mảng theo chiều ngang
  writeln('Mang vua nhap la:');
  for i := 1 to n do
    write(a[i], ' ');

  // Tìm giá trị lớn nhất và nhỏ nhất của mảng
  max := a[1];
  min := a[1];
  for i := 2 to n do
  begin
    if a[i] > max then
      max := a[i];
    if a[i] < min then
      min := a[i];
  end;
  writeln;
  writeln('Gia tri lon nhat cua mang la: ', max);
  writeln('Gia tri nho nhat cua mang la: ', min);

  // Tính tổng các phần tử âm của mảng
  s:= 0;
  for i := 1 to n do
  begin
    if a[i] < 0 then
      s:= s + a[i];
  end;
  writeln('Tong cac phan tu am cua mang la: ', s);

  readln;
end.